<%IF Request.QueryString("tc")<>"" THEN
codigoTipo=Request.QueryString("tc")
nombreTipo=Request.QueryString("tn")
ELSE
IF Request.Form("tc")<>"" THEN
codigoTipo=Request.Form("tc")
nombreTipo=Request.Form("tn")
ELSE
codigoTipo=0
nombreTipo="---"
END IF
END IF%>
MUÑECAS
DE COLECCION DE <%=nombreTipo%>
<%Set Conexion = Server.CreateObject("ADODB.Connection")
Set Comando = Server.CreateObject("ADODB.Command")
Conexion.Open "elbosquedelashadas.com.bosque"
Comando.ActiveConnection = Conexion
Comando.CommandType = adCmdText
IF request.Form("ACC")="BORRAR" and Request.Form("k")<>"" THEN
IF Request.Form("c2")<>"carmen2" then
mensaje=mensaje & "Falta la clave o la clave está mal escrita "%>
<%=mensaje%>
<%ELSE
sql = "DELETE FROM MUNECAS WHERE "
For Each item In Request.Form("k")
sql = sql & "CODIGO=" & item & " OR "
Next
sql = mid(sql,1,len(sql)-4)
Comando.CommandText = sql
on error resume next
Comando.Execute
if Err<>0 then%>
ERROR AL BORRAR LA MUÑECA
<%end if
END IF
END IF
IF mid(request.Form("ACC"),1,3)="MOD" THEN
mensaje=""
codigo=mid(request.Form("ACC"),4,Len(request.Form("ACC")))
IF Request.Form("c2")<>"carmen2" then
mensaje=mensaje & "Falta la clave o la clave está mal escrita "
END IF
IF Request.Form("nn" & codigo)="" THEN
mensaje=mensaje & "Falta el nombre de la muñeca "
END IF
IF Request.Form("cc" & codigo)="" THEN
mensaje=mensaje & "Faltan las características de la muñeca "
END IF
IF Request.Form("p1" & codigo)="" THEN
mensaje=mensaje & "Falta el PVP 1 de la muñeca "
ELSEIF not isnumeric(Request.Form("p1" & codigo)) THEN
mensaje=mensaje & "El PVP 1 de la muñeca está mal escrito "
END IF
IF Request.Form("p2" & codigo)<>"" THEN
IF not isnumeric(Request.Form("p2" & codigo)) THEN
mensaje=mensaje & "El PVP 2 de la muñeca está mal escrito "
END IF
END IF
IF not isnumeric(Request.Form("st" & codigo)) THEN
mensaje=mensaje & "El stock falta o está mal escrito "
END IF
IF mensaje<>"" THEN%>
<%=mensaje%>
<%ELSE
sql = "UPDATE MUNECAS SET NOMBRE='" & Replace(Request.Form("nn" & codigo),"'","´") & "',"
sql = sql & "CARACTERISTICAS='" & Replace(Request.Form("cc" & codigo),"'","´") & "',"
sql = sql & "PVP1=" & Replace(Request.Form("p1" & codigo),",",".") & ","
sql = sql & "CARACTERISTICAS_PVP1='" & Replace(Request.Form("cp1" & codigo),"'","´") & "',"
IF Request.Form("p2" & codigo)="" THEN
sql = sql & "PVP2=null,"
ELSE
sql = sql & "PVP2=" & Replace(Request.Form("p2" & codigo),",",".") & ","
END IF
IF Request.Form("cp2" & codigo)="" THEN
sql = sql & "CARACTERISTICAS_PVP2=null,"
ELSE
sql = sql & "CARACTERISTICAS_PVP2='" & Replace(Request.Form("cp2" & codigo),"'","´") & "',"
END IF
IF Request.Form("im" & codigo)="" THEN
sql = sql & "FOTO=null, "
ELSE
sql = sql & "FOTO='" & Replace(Request.Form("im" & codigo),"'","´") & "', "
END IF
IF Request.Form("st" & codigo)="" THEN
sql = sql & "STOCK=null, "
ELSE
sql = sql & "STOCK=" & Replace(Request.Form("st" & codigo),",",".") & ", "
END IF
IF Request.Form("imS" & codigo)="" THEN
sql = sql & "FOTO2=null "
ELSE
sql = sql & "FOTO2='" & Replace(Request.Form("imS" & codigo),"'","´") & "' "
END IF
sql = sql & "WHERE CODIGO = " & codigo
Comando.CommandText = sql
Comando.Execute
END IF
END IF
IF request.Form("ACC")="ALTA" THEN
mensaje=""
IF Request.Form("c1")<>"carmen2" then
mensaje=mensaje & "Falta la clave o la clave está mal escrita "
END IF
IF Request.Form("nn")="" THEN
mensaje=mensaje & "Falta el nombre de la muñeca "
END IF
IF Request.Form("cc")="" THEN
mensaje=mensaje & "Faltan las características de la muñeca "
END IF
IF Request.Form("p1")="" THEN
mensaje=mensaje & "Falta el PVP 1 de la muñeca "
ELSEIF not isnumeric(Request.Form("p1")) THEN
mensaje=mensaje & "El PVP 1 de la muñeca está mal escrito "
END IF
IF Request.Form("p2")<>"" THEN
IF not isnumeric(Request.Form("p2")) THEN
mensaje=mensaje & "El PVP 2 de la muñeca está mal escrito "
END IF
END IF
IF not isnumeric(Request.Form("st")) THEN
mensaje=mensaje & "El stock falta o está mal escrito "
END IF
IF mensaje<>"" THEN%>
<%=mensaje%>
<%ELSE
sql = "SELECT MAX(CODIGO) FROM MUNECAS"
Comando.CommandText = sql
Set RecordSet = Comando.Execute()
if RecordSet(0)<>0 THEN
codigo=RecordSet(0)
else
codigo=1
end if
sql = "INSERT INTO MUNECAS VALUES (" & codigo + 1 & "," & codigoTipo & ",'" & Replace(Request.Form("nn"),"'","´") & "',"
sql = sql & "'" & Replace(Request.Form("cc"),"'","´") & "',"
sql = sql & Replace(Request.Form("p1"),",",".") & ","
IF Request.Form("p2")="" THEN
sql = sql & "null,"
ELSE
sql = sql & Replace(Request.Form("p2"),",",".") & ","
END IF
IF Request.Form("cp1")="" THEN
sql = sql & "null,"
ELSE
sql = sql & "'" & Replace(Request.Form("cp1"),"'","´") & "',"
END IF
IF Request.Form("cp2")="" THEN
sql = sql & "null,"
ELSE
sql = sql & "'" & Replace(Request.Form("cp2"),"'","´") & "',"
END IF
IF Request.Form("im")="" THEN
sql = sql & "null,"
ELSE
sql = sql & "'" & Replace(Request.Form("im"),"'","´") & "',"
END IF
IF Request.Form("st")="" THEN
sql = sql & "null,"
ELSE
sql = sql & Replace(Request.Form("st"),",",".") & ","
END IF
IF Request.Form("imS")="" THEN
sql = sql & "null)"
ELSE
sql = sql & "'" & Replace(Request.Form("imS"),"'","´") & "')"
END IF
Comando.CommandText = sql
on error resume next
Comando.Execute
if Err<>0 then%>
YA EXISTE ESTE DATO O LOS DATOS ESTAN MAL ESCRITOS
<%end if
END IF
END IF
sql = "SELECT * FROM MUNECAS WHERE TIPO = " & codigoTipo
Comando.CommandText = sql
Set RecordSet = Comando.Execute()
IF NOT RecordSet.Eof THEN%>
<%ELSE%>
NO EXISTE NINGUNA MUÑECAS DE ESTE CREADOR
<%END IF
IF codigoTipo<>0 THEN%>
<%END IF
RecordSet.Close
Conexion.Close%>